home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / sdiff < prev    next >
Encoding:
Text File  |  2002-10-28  |  393 b   |  22 lines
  1. # Here's the plan
  2. #
  3. # $sdiff() -- convert bytes to kilobytes
  4. # $sdiff2() -- convert bytes to megabytes
  5. #
  6.  
  7. alias sdiff {
  8.     ^set floating_point on
  9.     ^local kb $trunc($1 ${[$0] / 1024})
  10.     @ function_return = kb ## [K]
  11.     ^set floating_point off
  12. }
  13.  
  14. alias sdiff2 {
  15.     ^set floating_point on
  16.     ^local mb $trunc($1 ${[$0] / (1024 * 1024)})
  17.     @ function_return = mb ## [mb]
  18.     ^set floating_point off
  19. }
  20.  
  21. #hop'97
  22.